﻿Public Class frm_forma
    Public forma As String
    Public dataPgto As Date
    Public lancamento As Integer

    Private Sub bSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bSalvar.Click
        forma = cbForma.Text
        dataPgto = dtPgto.Value
        Me.Close()
    End Sub

    Private Sub frm_forma_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.Text = "do Lancaçamento nº " + lancamento.ToString()
        cbForma.SelectedIndex = 0
    End Sub
End Class